home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tpapi1.zip
/
NWMISC.PA1
< prev
next >
Wrap
Text File
|
1991-12-04
|
3KB
|
65 lines
{!R! FONT 15; FTMD 15; EXIT;}
{***************************************************************************}
{** Program : NWMISC **}
{***************************************************************************}
{** Version : 1.0b ** Started : 11/11/91 ** ENDed : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : NWMISC **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** **}
{** **}
{** **}
{** **}
{** This code is (c) 1991 Tony Covelli, **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
UNIT NWMISC;
INTERFACE
USES
netware, nwvar;
TYPE
pMiscFuncOBJ = ^MiscFuncOBJ;
MiscFuncOBJ = object (NetwareOBJ)
constructor Init;
PROCEDURE GetAllShellTables;
PROCEDURE LogoutAndDetachFromFileServer (ServerName : ObjectNameType; ConnectionID : WORD);
FUNCTION NetWareLoaded (VAR LoggedIn : BOOLEAN) : BOOLEAN;
FUNCTION GetDefaultFileServerName : ObjectNameType;
FUNCTION GetObjectName (ServerName : ObjectNameType; VAR ObjectName : ObjectNameType;
VAR ObjectType : OT_BinderyType) : WORD;
FUNCTION GetObjectFullName (ServerName : ObjectNameType; VAR ObjectFullName : FullNameType;
VAR ObjectType : OT_BinderyType) : WORD;
FUNCTION GetStationNumber (ServerName : ObjectNameType) : WORD;
FUNCTION DeleteDriveMapping (Drive : CHAR) : WORD;
FUNCTION UserMemberOfGroup (ObjectName, MemberName : ObjectNameType) : WORD;
FUNCTION FileServerExists (ServerName : ObjectNameType) : BOOLEAN;
FUNCTION ExpandNetwareFileTime (TimeInfo : LONGINT) : STRING;
destructor Done; virtual;
END;